home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00003Series_87.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  4.6 KB  |  142 lines
  1. on mouseUp
  2.   put EMPTY into field "op"
  3.   if the hilite of cast "b_BRK4" = 1 then
  4.     put "BRK4:Total Lock; " after field "op"
  5.   end if
  6.   if the hilite of cast "b_BRK3" = 1 then
  7.     put "BRK3:Side Lock; " after field "op"
  8.   end if
  9.   if the hilite of cast "b_BRK2" = 1 then
  10.     put "BRK2:TechLock; " after field "op"
  11.   end if
  12.   if the hilite of cast "b_BRK1b" = 1 then
  13.     put "BRK1:Tread Lock; " after field "op"
  14.   end if
  15.   if the hilite of cast "b_seal" = 1 then
  16.     put "SEAL:Dirtban; " after field "op"
  17.   end if
  18.   if the hilite of cast "b_MTG51" = 1 then
  19.     if field "mainmounting" contains "Standard" then
  20.       put "MTG51:Swivel Lock; " after field "op"
  21.     end if
  22.     if field "mainmounting" contains "MTG2" then
  23.       put "MTG52:Swivel Lock; " after field "op"
  24.     end if
  25.     if field "mainmounting" contains "MTG4" then
  26.       put "MTG54:Swivel Lock; " after field "op"
  27.     end if
  28.     if char 1 of field "Tblcaste,CA_MOD" contains "5" then
  29.       put "MTG52:Swivel Lock; " after field "op"
  30.     end if
  31.     if char 1 of field "Tblcaste,CA_MOD" contains "6" then
  32.       put "MTG52:Swivel Lock; " after field "op"
  33.     end if
  34.     if char 1 of field "Tblcaste,CA_MOD" contains "7" then
  35.       put "MTG51:Swivel Lock; " after field "op"
  36.     end if
  37.   end if
  38.   if the hilite of cast "b_MTG61" = 1 then
  39.     if field "mainmounting" contains "Standard" then
  40.       put "MTG61:Swivel Lock; " after field "op"
  41.     end if
  42.     if field "mainmounting" contains "MTG2" then
  43.       put "MTG62:Swivel Lock; " after field "op"
  44.     end if
  45.     if field "mainmounting" contains "MTG3" then
  46.       put "MTG63:Swivel Lock; " after field "op"
  47.     end if
  48.     if field "mainmounting" contains "MTG4" then
  49.       put "MTG64:Swivel Lock; " after field "op"
  50.     end if
  51.     if char 1 of field "Tblcaste,CA_MOD" contains "5" then
  52.       put "MTG62:Swivel Lock; " after field "op"
  53.     end if
  54.     if char 1 of field "Tblcaste,CA_MOD" contains "6" then
  55.       put "MTG62:Swivel Lock; " after field "op"
  56.     end if
  57.   end if
  58.   if the hilite of cast "b_tg1" = 1 then
  59.     put "TG1:Metal; " after field "op"
  60.   end if
  61.   if the hilite of cast "b_tg2" = 1 then
  62.     put "TG2:Plastic; " after field "op"
  63.   end if
  64.   if the hilite of cast "b_fsi" = 1 then
  65.     put "FSI; " after field "op"
  66.   end if
  67.   if the hilite of cast "b_AX1" = 1 then
  68.     put "AX1: Zerk Axle; " after field "op"
  69.   end if
  70.   if the hilite of cast "b_AX2" = 1 then
  71.     put "AX2: Solid Axle; " after field "op"
  72.   end if
  73.   if the hilite of cast "b_NT1" = 1 then
  74.     put "NT1: Thick Lock Nut; " after field "op"
  75.   end if
  76.   if the hilite of cast "b_NT2" = 1 then
  77.     put "NT2: Thin Lock Nut; " after field "op"
  78.   end if
  79.   if the hilite of cast "b_HeatTreated" = 1 then
  80.     put "Heat Treated; " after field "op"
  81.   end if
  82.   if the hilite of cast "b_WB2" = 1 then
  83.     put "WB2: Tapered; " after field "op"
  84.   end if
  85.   if the hilite of cast "b_grf1" = 1 then
  86.     put "GRF1: No Grease; " after field "op"
  87.   end if
  88.   if the hilite of cast "b_grf2" = 1 then
  89.     put "GRF2: Double Grease; " after field "op"
  90.   end if
  91.   if the hilite of cast "b_grf3" = 1 then
  92.     put "GRF3: 300 degree Cont.; " after field "op"
  93.   end if
  94.   if the hilite of cast "b_grw1" = 1 then
  95.     put "GRW1: No Grease; " after field "op"
  96.   end if
  97.   if the hilite of cast "b_grw2" = 1 then
  98.     put "GRW2: Double Grease; " after field "op"
  99.   end if
  100.   if the hilite of cast "b_grw3" = 1 then
  101.     put "GRW3: 300 Degree Cont.; " after field "op"
  102.   end if
  103.   if the hilite of cast "b_lh8.0" = 1 then
  104.     put "LH8.0: LH=8 inches; " after field "op"
  105.   end if
  106.   if the hilite of cast "b_lh10.5" = 1 then
  107.     put "LH10.5: LH=10-1/2 inches; " after field "op"
  108.   end if
  109.   if the hilite of cast "b_lh12.5" = 1 then
  110.     put "LH12.5: LH=12-1/2 inches; " after field "op"
  111.   end if
  112.   if the hilite of cast "b_lh15.5" = 1 then
  113.     put "LH15.5: LH=15-1/2 inches; " after field "op"
  114.   end if
  115.   put field "bearingoption" after field "op"
  116.   if char 1 of field "Tblcaste,CA_MOD" contains "6" then
  117.     if (field "Tblcaste,DESCRIP" contains "IMPAK") or (field "Tblcaste,DESCRIP" contains "RIGID") then
  118.       if field "Tblcaste,DIAMETER" contains "8" then
  119.         set the hilite of member "b_6lhst8" to 1
  120.         set the hilite of member "b_6lhop8" to 0
  121.         puppetSound("mainsnd")
  122.         puppetTransition(47, 1, 8)
  123.         play frame "6implh"
  124.         abort()
  125.       end if
  126.     end if
  127.   end if
  128.   delete char -30000 of field "op"
  129.   delete char -30000 of field "op"
  130.   put field "op" into field "mainop"
  131.   puppetSound("foundspec")
  132.   puppetTransition(47, 1, 8)
  133.   put the number of lines in field "tblca_Fe,FEATURE"
  134.   if the number of chars in field "Tblca_Fe,FEATURE" > 200 then
  135.     put field "Tblca_Fe,FEATURE" into field "specbfea"
  136.     play frame "specb"
  137.     abort()
  138.   end if
  139.   play frame "speca"
  140.   abort()
  141. end
  142.